Path of script

Category:Perl

    
use FindBin '$Bin';
print "The script is located in $Bin.\n";